home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt85feb.lbr / SIGEN.BAS < prev   
BASIC Source File  |  1985-09-15  |  896b  |  27 lines
  1. 10 '   ***  SIGEN.BAS ***
  2. 20 ' Generate a Silicon lattice of Nx, Ny, Nz unit cells
  3. 30 ' E. Kirkland 15-SEP-84
  4. 40 DEFINT I-N:DEFSNG A-G,O-Z
  5. 50 INPUT "Generate Nx,Ny,Nz Silicon unit cells : ",NX,NY,NZ
  6. 60 INPUT "Output file name : ",FILE$
  7. 70 OPEN FILE$ FOR OUTPUT AS #1:SIZE=.15
  8. 80 FOR IX=0 TO NX
  9. 90 FOR IY=0 TO NY
  10. 100 FOR IZ=0 TO NZ
  11. 110 WRITE#1,IX,IY,IZ,SIZE
  12. 120 IF (IX=NX) OR (IY=NY) OR (IZ=NZ) GOTO 230
  13. 130 WRITE#1,IX+.5,IY+.5,IZ,SIZE
  14. 140 WRITE#1,IX+.5,IY,IZ+.5,SIZE
  15. 150 WRITE#1,IX,IY+.5,IZ+.5,SIZE
  16. 160 WRITE#1,IX+.5,IY+.5,IZ+1,SIZE
  17. 170 WRITE#1,IX+.5,IY+1,IZ+.5,SIZE
  18. 180 WRITE#1,IX+1,IY+.5,IZ+.5,SIZE
  19. 190 WRITE#1,IX+.25,IY+.25,IZ+.25,SIZE
  20. 200 WRITE#1,IX+.25,IY+.75,IZ+.75,SIZE
  21. 210 WRITE#1,IX+.75,IY+.25,IZ+.75,SIZE
  22. 220 WRITE#1,IX+.75,IY+.75,IZ+.25,SIZE
  23. 230 NEXT IZ
  24. 240 NEXT IY
  25. 250 NEXT IX
  26. 260 CLOSE#1:END